put "Items Chosen Field" & return & "click to enact choice" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseUp
show background Button "Action"
send mouseUp to bkgnd btn "Action"
end mouseUp
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseLeave
-- part 4 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=120 top=50 right=185 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 202
-- text size: 64
-- style flags: 8192
-- line height: 64
-- part name: Environments
----- HyperTalk script -----
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
global LH, TS,inc,left, top, right, bottom --set on open card
global hich, hiline,sel, fName
set lockscreen to true
get the clickloc
put item 1 of it into x
put item 2 of it into y
--•deselect
if sel<>empty then
put sel into character hich of line hiline of field fName
end if
--need to determine where 1st char goes depending on font
--then calculate distance between centers of char
-- from this determine valid select region
--•Locate•
--determines which character in a space free field was clicked on
--NEED CARRIAGE RETURN
put selectionAndHiliter() into lnum
put theChar(x) into chnum
if chnum is empty or lnum is empty
then exit mouseUp
else
put character chnum of line Lnum of field fName into Choice
if choice=return or chnum=space
then exit mouseUp
end if
--•select•
put chnum into hich
put lnum into hiLine
put choice into sel
put numtochar(chartonum(sel)+1) into character hich of line hiline of field fName
--∆ Set switch for no solution selected yet
put line 1 of bkgnd fld sentence into sentenceContents
if sentenceContents is empty then put "OK" into solutionsSwitch
--•put into sentance•
put choice into character 1 of field sentence
--•Ready to take you to the room/product card
show background Button "Action"
unlock screen with dissolve
set lockscreen to true
if "solutionsSwitch" is "OK" then send mouseUp to btn "Solutions"
unlock screen with dissolve
end mouseUp
on mouseEnter
put "Click on an Environment" & return & "then choose a solution" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 5 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=120 top=50 right=185 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 202
-- text size: 64
-- style flags: 8192
-- line height: 72
-- part name: Solutions
----- HyperTalk script -----
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
global LH, TS,inc,left, top, right, bottom --set on open card
global hich,hiline,sel,fName
set lockscreen to true
get the clickloc
put item 1 of it into x
put item 2 of it into y
--•deselect
if sel<>empty then
put sel into character hich of line hiline of field fName
end if
--need to determine where 1st char goes depending on font
--then calculate distance between centers of char
-- from this determine valid select region
--•Locate•
--determines which character in a space free field was clicked on
--NEED CARRIAGE RETURN
put selectionAndHiliter() into lnum
put theChar(x) into chnum
if chnum is empty or lnum is empty
then exit mouseUp
else
put character chnum of line Lnum of field fName into Choice
if choice=return or chnum=space
then exit mouseUp
end if
--•select•
put chnum into hich
put lnum into hiLine
put choice into sel
put numtochar(chartonum(sel)+1) into character hich of line hiline of field fName
--•put into sentance•
if field sentence is empty then
put " "&choice into character 2 of field sentence
else put choice into character 2 of field sentence
show background Button "Action"
unlock screen with dissolve
end mouseUp
on mouseEnter
put "Click on a Solution" & return & "then click Action button" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 6 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=120 top=50 right=186 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Products
----- HyperTalk script -----
on mouseDown
Global ButtonSND
play ButtonSND
end mouseDown
on mouseUp
global LH,inc,left, top, right, bottom --set on open card
global fName, product
set cursor to busy
get the clickloc
put item 1 of it into x
put item 2 of it into y
--•deselect
--•get the product by getting the line
put selectionAndHiliter() into lnum
--•Error checking
set lockscreen to true
if lnum is empty then
exit mouseUp
else
select line lnum of field fName
put line Lnum of field fName into product
end if
--•select•
--•put into sentance•
put product into field prodholder
show cd btn "View Product Card"
hide cd btn "productsHiliter"
unlock screen with dissolve
end mouseUp
on mouseEnter
changeCurs 6069
put "Products List" & return & "click on a product name" & return & "(scroll for more names)" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseLeave
-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=9 top=211 right=256 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ActionHelp
----- HyperTalk script -----
on mouseEnter
put "first select environment or solution" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseUp
--beep 1 --to get your attention, see below.
--•This button is a dummy of the real Action button, here for Help
--•purposes. Any changes made here, or in the real Action Help script
--•should be duplicated, JONATHAN
end mouseUp
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseLeave
-- part 8 (button)
-- low flags: 00
-- high flags: 2001
-- rect: left=7 top=210 right=253 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 6290 / 6290
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Action
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Go To Choice Button" & return && "click to go see products" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseLeave
on mouseUp
GLOBAL SEL,HICH,HILINE,FNAME,product,hall,floor,currentfloor
global env,sol,theRoom,lastRoom,tidyUpNow
--•deselect selected icon before leaving the card
if sel<>empty then
put sel into character hich of line hiline of field fName
end if
set hilite of cd button "Environments" to false
set hilite of cd button "Solutions" to false
set hilite of cd button "Products" to false
--• Determine env and sol to put in room•
put character 1 of field sentence into env
put character 2 of field sentence into sol
if env is empty and sol is empty then exit mouseUp
put env && sol into testRoom
if lastRoom <> testRoom then put true into tidyUpNow
if sol is empty or sol is " " then
put word 1 of line chartonum(env)-65 of field list into env
if env is "Mac" then
put "RoomMac" into theRoom
end if
if env is "PC" then
put "RoomMicro" into theRoom
else
put "Room" into theRoom
end if
set the highlight of Background button "Network Level" of cd room to false
set the highlight of Background button "Hardware Level" of cd room to false
set the highlight of Background button "Application Level" of cd room to True
put 3 into floor
put "3 Applications" into currentfloor
push card
visual effect dissolve
set hilite of cd button "Environments" to false
set hilite of cd button "Solutions" to false
set hilite of cd button "Products" to false
go card "Hallway1"
exit mouseUp
end if
if env is empty or env is " " then
answer "Please choose an environment first." with "OK"
send mouseUp to card button "environments"
exit mouseUP
end if
if (env<>empty or env<>" ") and (sol<>empty or sol<>" " )
then
put word 1 of line chartonum(env)-65 of field list into env
put word 1 of line chartonum(sol)-97+24 of field list into sol
if env is "Mac" then
put "RoomMac" into theRoom
if sol is "Network Services" then
put 2 into floor
put "2 Network Services" into currentfloor
push card
set lockscreen to true
go to card "Network" && theRoom
unlock screen with dissolve
exit mouseUP
end if
if sol is "HardWare" then
put 1 into floor
put "1 Hardware" into currentfloor
push card
set lockscreen to true
go to card "Hardware Room"
unlock screen with dissolve
exit mouseUP
end if
put 3 into floor
put "3 Applications" into currentfloor
push card
go to card theRoom
clean
unlock screen with dissolve
exit mouseUp
end if
if env is "PC" then
put "RoomMicro" into theRoom
if sol is "Network Services" then
put 2 into floor
put "2 Network Services" into currentfloor
push card
set lockscreen to true
go to card "Network" && theRoom
unlock screen with dissolve
exit mouseUP
end if
if sol is "HardWare" then
put 1 into floor
put "1 Hardware" into currentfloor
push card
set lockscreen to true
go to card "Hardware Room"
unlock screen with dissolve
exit mouseUP
end if
else
put "Room" into theRoom
end if
if sol is "Network Services" then
put 2 into floor
put "2 Network Services" into currentfloor
push card
set lockscreen to true
go to card "Network" && theRoom
unlock screen with dissolve
exit mouseUp
end if
if sol is "HardWare" then
put 1 into floor
put "1 Hardware" into currentfloor
push card
set lockscreen to true
go to card "Hardware Room"
unlock screen with dissolve
exit mouseUP
end if
put 3 into floor
put "3 Applications" into currentfloor
push card
set lockscreen to true
go to card theRoom
unlock screen with dissolve
end if
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
-- part 10 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=229 right=282 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 8192
-- line height: 24
-- part name: prodHolder
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Product Chosen Field" & return & "click to see product card" into fld "Tell"
end mouseEnter
on mouseUp
global product
show background Button "Action"
set lockscreen to true
put char 1 to 26 of product into product
push card
go to card product of stack "Products"
unlock screen with dissolve
end mouseUp
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseLeave
-- part 11 (field)
-- low flags: 81
-- high flags: 2001
-- rect: left=121 top=51 right=184 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 14
-- part name: Explainer
----- HyperTalk script -----
on mouseEnter
global Help
if Help then
set lockscreen to true
put "This is the Information Field " &return&return& "Selecting a Tool to the left will place information on those subjects"& " into this field. " &return& "Select an item on a subject you are interested in, "& "and press the Action button to find out more." into me
unlock screen with dissolve fast
else
put "'Explainer' Field" & return & "displays detailed help" into cd "Tell"
end if
end mouseEnter
on mouseLeave
global Help
if help then
else
changeCurs 6069
put empty into fld "Tell"
end if
end mouseLeave
put "Items Chosen Field" & return & "click to enact your choice" into cd fld "Tell"
-- part 12 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=120 top=50 right=185 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Explainer
----- HyperTalk script -----
on mouseEnter
global Help
if Help then
put "Click a Presentation to see its PICTs. " & "To install your own PICTs, place them into the FOLDER with the " & "same name as the Presentation you want them to be in. " & "'Update' the Presentation selected to list all available PICTs." into me
end if
end mouseEnter
on mouseDown
play "Keyboard 2"
hide me
end mouseDown
-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseUp
--• HELP
on mouseEnter
global Help
if Help then
set lockscreen to true
show field "Explainer"
put "This is the 'Lobby' button. " & return & return & " Clicking this button will bring you to the Lobby " & "entrance of this stack." into field "Explainer"
unlock screen with dissolve fast
else
put "'Go Lobby' Button" & return & "current location" into fld "Tell"
end if
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
global Help
if Help
then
else
put empty into fld "Tell"
end if
end mouseLeave
-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseUp
--• HELP
on mouseEnter
global Help
if Help then
set lockscreen to true
show field "Explainer"
put "This is the 'Lobby' button. " & return & return & " Clicking this button will bring you to the Lobby " & "entrance of this stack." into field "Explainer"
unlock screen with dissolve fast
else
put "'Go Lobby' Button" & return & "current location" into fld "Tell"
end if
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
global Help
if Help
then
else
put empty into fld "Tell"
end if
end mouseLeave
-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseUp
--• HELP
on mouseEnter
global Help
if Help then
set lockscreen to true
show field "Explainer"
put "This is the 'Lobby' button. " & return & return & " Clicking this button will bring you to the Lobby " & "entrance of this stack." into field "Explainer"
unlock screen with dissolve fast
else
put "'Go Lobby' Button" & return & "current location" into fld "Tell"
end if
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
global Help
if Help
then
else
put empty into fld "Tell"
end if
end mouseLeave
-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=427 top=303 right=342 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseUp
--• HELP
on mouseEnter
global Help
if Help then
set lockscreen to true
show field "Explainer"
put "This is the 'Lobby' button. " & return & return & " Clicking this button will bring you to the Lobby " & "entrance of this stack." into field "Explainer"
unlock screen with dissolve fast
else
put "'Go Lobby' Button" & return & "current location" into fld "Tell"
end if
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
global Help
if Help
then
else
put empty into fld "Tell"
end if
end mouseLeave
-- part 38 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=427 top=303 right=342 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 30492 / 30492
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kiosk
----- HyperTalk script -----
on mouseUp
global Help
if Help is True then exit mouseUp
push card
visual effect dissolve
go to cd "Matrix"
end mouseUp
--• HELP
on mouseEnter
global Help
if Help then
set lockscreen to true
show field "Explainer"
put "This is the 'Matrix' button. " & return & return & "This button takes you instantly to the Matrix of Solutions " & "and Environments." & return & "This is the fastest way to get started." into field "Explainer"
unlock screen with dissolve fast
else
ChangeCurs 13000
put "'Matrix' Button" & return & "click to go to the Matrix" into fld "Tell"
end if
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
global Help
if Help
then
else
put empty into fld "Tell"
end if
end mouseLeave
-- part 40 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=172 top=307 right=339 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell
----- HyperTalk script -----
--• HELP
on mouseEnter
global Help
if Help then
set lockscreen to true
show field "Explainer"
put "This is the 'Message' field. " & return & return & "As the mouse enters the active area of each " & "button on this card, " & "this field will briefly explain what the button does. " into field "Explainer"
unlock screen with dissolve fast
else
put "Message Field" & return & "displays stack information" into fld "Tell"
end if
end mouseEnter
on mouseLeave
global Help
if Help
then
else
put empty into fld "Tell"
end if
end mouseLeave
-- part 7 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=115 top=32 right=296 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: list
-- part 42 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=42 top=303 right=342 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 21375 / 21375
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outline mode
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Briefing Button" & return & "click to go to briefing room" into fld "Tell"
end mouseEnter
on mouseUp
set lockscreen to true
set cursor to busy
push card
go to cd "Briefing Room"
unlock screen with dissolve
pass mouseUp
end mouseUp
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 43 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=0 top=303 right=342 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 10112 / 10112
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EXIT
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Exit Button" & return & "click to quit or go home" into fld "Tell"
end mouseEnter
on mouseUp
set lockscreen to true
answer "Would you like to Quit, go Home, or Cancel" with "Quit" or "Home" or "Cancel"
unlock screen with dissolve
set lockscreen to true
if it is "Quit" then doMenu "Quit HyperCard"
if it is "Home" then
put empty into field "Explainer"
domenu Home
end if
unlock screen with dissolve
end mouseUp
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 44 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=84 top=303 right=342 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 20358 / 20358
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Glossary
----- HyperTalk script -----
on mouseUp
set cursor to busy
get short name of this card
if it is "Outliner" then clearF
push card
visual effect iris open
go cd "glossary"
end mouseUp
on mouseEnter
put "Glossary Button" & return & "click to go to the Glossary" into fld "Tell"
changeCurs 6069
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 45 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=126 top=303 right=342 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Printer
----- HyperTalk script -----
on mouseUp
set cursor to busy
print card
end mouseUp
on mouseEnter
changeCurs 6069
put "Printer Button" & return & "click to print this image" into fld "Tell"
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 46 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=343 top=303 right=342 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 1409 / 1409
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outliner
----- HyperTalk script -----
on mouseUp
global Mack,Host
push card
set cursor to busy
set the lockscreen to true
put true into Mack
put false into Host
go to cd "Outliner"
send mouseUp to cd btn "macSwitch"
unlock screen with dissolve
end mouseUp
on mouseEnter
changeCurs 6069
put "Outliner Button" & return & "use outline navigation" into fld "Tell"
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 47 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 18849 / 18849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lobby
----- HyperTalk script -----
on mouseUp
set lockscreen to true
set cursor to busy
push card
unlock screen with dissolve
go to cd "Lobby"
end mouseUp
on mouseEnter
changeCurs 6069
put "Lobby Button" & return & "use building navigation" into fld "Tell"
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 48 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=469 top=303 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoBack
----- HyperTalk script -----
on mouseUp
set lockscreen to true
set cursor to busy
go Back
unlock screen with visual effect wipe right
end mouseUp
on mouseEnter
changeCurs 6069
put "Go Back Button" & return & "click to go to prev card" into fld "Tell"